Namespace Common

    Public Class Variants

        Public Const ENMARK As String = "\"
        Public Const DOT As String = "."
        Public Const COMMA As String = ","
        Public Const [AND] As String = "&"
        Public Const ADD As String = "+"
        Public Const DIV As String = "/"
        Public Const SPACE As String = " "
        Public Const CUT As String = "-"
        Public Const UNDERLINE As String = "_"
        Public Const AT As String = "@"
        Public Const EQUAL As String = "="
        Public Const QUATATION As String = ChrW(34)
        Public Const SP As Char = " "c
        Public Const ABBREVIATION As String = "..."

        Public Const BRACKET_BIG_LEFT As String = "{"
        Public Const BRACKET_BIG_RIGHT As String = "}"
        Public Const BRACKET_MID_LEFT As String = "["
        Public Const BRACKET_MID_RIGHT As String = "]"
        Public Const BRACKET_SML_LEFT As String = "("
        Public Const BRACKET_SML_RIGHT As String = ")"

        Public Const AUTHORMAIL_ADDR_VIP As String = "farrio@vip.163.com"
        'Public Const AUTHORMAIL_ADDR_BHH As String = "xuzy@bhh.com.cn"

        Private Const CST_STDNAME As String = "iSoft"
        Private Const CST_STDTYPE As String = "Technology"
        Private Const CST_STDDUR_BEGIN As String = "2002"
        Private Const CST_STDDUR_END As String = "2007"
        Private Const CST_STR_COPYRIGHT As String = "Copyright" & ChrW(169)
        Private Const CST_STR_ALLRR As String = "All rights reserved"

        ''' <summary>
        ''' Return the number of spaces string.
        ''' </summary>
        ''' <param name="Length">The number of space you want to create.</param>
        ''' <value></value>
        ''' <returns>The number of spaces string.</returns>
        ''' <remarks></remarks>
        Public Shared ReadOnly Property SPACES(ByVal Length As Integer) As String
            Get
                Return "".PadRight(Length)
            End Get
        End Property

        ''' <summary>
        ''' Return the standard copyright information.
        ''' </summary>
        ''' <param name="Full">Set the full style information or not.</param>
        ''' <value></value>
        ''' <returns>The copyright information string.</returns>
        ''' <remarks></remarks>
        Public Shared ReadOnly Property Copyright(ByVal MainWindow As Windows.Forms.Form, ByVal Full As Boolean, ByVal In2Lines As Boolean) As String
            Get
                Dim ret As String
                If Full = True Then
                    If In2Lines = True Then
                        ret = CST_STR_COPYRIGHT & SPACE & CST_STDDUR_BEGIN & CUT & CST_STDDUR_END & SPACE & MainWindow.CompanyName & DOT & vbCrLf & CST_STR_ALLRR & DOT
                    Else
                        ret = CST_STR_COPYRIGHT & SPACE & CST_STDDUR_BEGIN & CUT & CST_STDDUR_END & SPACE & MainWindow.CompanyName & DOT & SPACE & CST_STR_ALLRR & DOT
                    End If
                Else
                    ret = CST_STR_COPYRIGHT & SPACE & CST_STDDUR_BEGIN & CUT & CST_STDDUR_END & SPACE & MainWindow.CompanyName & DOT
                End If
                Return ret
            End Get
        End Property

    End Class

End Namespace

